home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS18.ADF / Progs / StarProbe / SPMAC.H < prev    next >
C/C++ Source or Header  |  1989-01-27  |  853b  |  31 lines
  1. /****************************************************************************
  2.  ***              G  L  O  B  A  L    M  A  C  R  O  S                    ***
  3.  ****************************************************************************/
  4.  
  5. #include "astro.h"
  6.  
  7. #define MAX_PROCS 100
  8. #define MAX_LEVELS 10
  9. #define MAX_STEPS 51
  10. #define in 1
  11. #define mid 0
  12. #define out -1
  13.  
  14. #define iam(P1) static int proc_num = P1
  15.  
  16. #define trace_me proc_trace[proc_num]==1
  17.  
  18. #define block(P1,P2,P3) \
  19.  block_trace(proc_num,P1,P2,P3); \
  20.  if (P1 == in) proc_count[proc_num] += 1
  21.  
  22. #define assert0(P1,P2,P3) \
  23.  if (!(P1 P2 P3)) assert_error(proc_num,P1,P3,0.0,0.0,0.0,0.0,0.0)
  24.  
  25. #define assert1(P1,P2,P3) \
  26.  if (!(P1 P2 P3)) assert_error(proc_num,P1,P3,m,p,t,0.0,0.0)
  27.  
  28. #define assert2(P1,P2,P3) \
  29.  if (!(P1 P2 P3)) assert_error(proc_num,P1,P3,m,p,t,l,r)
  30.  
  31.